home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / MUSIC2.BAS < prev    next >
BASIC Source File  |  1994-02-16  |  4KB  |  104 lines
  1. DECLARE SUB menu (X%, Y%, SECIMSAYISI!, SECILEN!)
  2. DECLARE SUB yaz (X%, Y%, e$, e!)
  3.  
  4. DIM SHARED a$(1 TO 20)
  5. 10 '
  6. COLOR 14, 12: CLS
  7. DO
  8. COLOR 14, 12
  9. a$(1) = "    KARA HARP OKULU MAR₧I   "
  10. a$(2) = "    GÜLNÿHAL                "
  11. a$(3) = "    ÇIKI₧                   "
  12. LOCATE 9, 35: PRINT "A N A  M E N Ü"
  13. LOCATE 10, 35: PRINT "══════════════"
  14. LOCATE 2, 66: COLOR 1, 11: PRINT "NESIM RAZON"
  15. LOCATE 2, 5: COLOR 1, 11: PRINT "NESIM RAZON"
  16. LOCATE 23, 66: COLOR 1, 11: PRINT "NESIM RAZON"
  17. LOCATE 23, 5: COLOR 1, 11: PRINT "NESIM RAZON"
  18.  
  19. menu 12, 28, 3, sd
  20.  
  21. IF sd = 1 THEN GOTO 140
  22. IF sd = 2 THEN GOTO 71
  23. IF sd = 3 THEN COLOR 14, 12: CLS : LOCATE 11, 33: PRINT "HO₧ÇAKALIN": EXIT DO
  24. LOOP
  25. SYSTEM
  26. '****** GULNIHAL SARKISI *******
  27. 71 COLOR 14, 12: CLS : FOR I = 7 TO 13
  28. 72 LOCATE I, 19: NEXT I
  29. 73 LOCATE 7, 19: PRINT CHR$(201) + STRING$(40, 205) + CHR$(187)
  30. 74 FOR I = 8 TO 13: LOCATE I, 19: PRINT "║": NEXT
  31. 75 LOCATE 14, 19: PRINT "╚" + STRING$(40, "═") + "╝": FOR I = 13 TO 8 STEP -1
  32. 76 LOCATE I, 60: PRINT "║": NEXT
  33. 90 LOCATE 10, 30: PRINT "**GÜLNÿHAL MELODÿSÿ**"
  34. 95 LOCATE 11, 31: PRINT " Nesim Razon 1994     "
  35. 100 PLAY "L12O3CCCEEDDDDDO2GGAABBO3CCCCCCO3CCCCEEDDDDDDO2GGAABBO3CCCCCCCCCCEEDDDDDDDDEEFEEEEEEFFFAAGGGGGGDDEEFFEEEEEECCCCEEDDDDDDO2GGAABBO3CCCCCCCCCCEEDDDDDDDDEEFFEEEEEEFFFAAGGGGGGDDEEFFEEEEEECCCCEEDDDDDDO2GGAABBO3CCCCCCO4CCO3BBAAO4CC"
  36. 110 PLAY "L12O3BBAAG#G#AABBAAAAAAO4CCO3BBAAO4CCO3BBAAO4EEEEEEDCO3BABO4CCO3BBAAO4CCO3"
  37. 120 PLAY "BBAAG#G#AABBAAAAAAO4CCO3BBAAO4CCO3BBAAO4EEEEEEEDCO3BAGFFFFAAGGGGGGDDEEFFEEEEEECCCCEEDDDDDDO2GGAABBO3CCDDEEFFFFAAGGGGGGDDEEFFEEEEEECCCCEEDDDDDDO2GGAABBO3C"
  38. 130 GOTO 10
  39.  
  40. '*** KARA HARP OKULU MARSI   
  41. 140 COLOR 14, 12: CLS : FOR I = 7 TO 13
  42. 141 LOCATE I, 19: NEXT I
  43. 142 LOCATE 7, 19: PRINT CHR$(201) + STRING$(40, 205) + CHR$(187)
  44. 143 FOR I = 8 TO 13: LOCATE I, 19: PRINT "║": NEXT
  45. 144 LOCATE 14, 19: PRINT "╚" + STRING$(40, "═") + "╝": FOR I = 13 TO 8 STEP -1
  46. 145 LOCATE I, 60: PRINT "║": NEXT
  47. 146 LOCATE 10, 26: PRINT "***KARA HARP OKULU MAR₧I***"
  48. 147 LOCATE 11, 31: PRINT " Nesim Razon 1994     "
  49. 150 PLAY "L16O3EEEEEEEEEEEEG#G#G#G#F#F#F#F#F#F#D#D#O2BBBBP8BBO3BBBBBBAAG#G#G#G#F#F#G#G#EEEEEEEEEEEEEEEEBBBBBBBBBBBBO4EEEED#D#D#D#D#D#D#C#C#O3BBBBP8BBF#F#F#F#F#G#G#AAAABBBBO3G#G#G#G#G#G#G#G#G#G#G#G#G#G#G#G#BBBBBBBBBBG#G#EEG#"
  50. 160 PLAY "O4C#C#C#C#C#C#C#C#C#C#C#C#C#C#C#P16C#C#C#C#C#C#C#C#C#C#C#C#C#C#C#C#EEEEEEEEEEEEEEEEO3F#F#F#F#F#F#G#G#AAO4C#C#O3BBBBF#F#F#F#F#F#F#F#O4C#C#C#C#C#C#P8O3EEEEAAAAG#G#G#G#F#F#F#F#EEEEEEEEEEEEEEEE"
  51. 170 PLAY "L16O3BBBBBBBBBBG#G#EEG#G#O4C#C#C#C#C#C#C#C#C#C#C#C#C#C#C#P16C#C#C#C#C#C#C#C#C#C#C#C#C#C#C#C#C#EEEEEEEEEEEEEEEEO3F#F#F#F#F#F#G#G#AAO4C#C#O3BBBBF#F#F#F#F#F#F#F#O4C#C#C#C#C#C#P8O3EEEEAAAAG#G#G#G#F#F#F#F#EEEEEEEE"
  52. GOTO 10
  53.  
  54. SUB menu (X%, Y%, SECIMSAYISI, SECILEN)
  55. NRD% = 1
  56. FOR Q% = 1 TO SECIMSAYISI
  57. yaz ((X% - 1) + Q%), Y%, a$(Q%), 0
  58. NEXT
  59. yaz X%, Y%, a$(1), 1
  60. DO
  61. DO
  62. w$ = INKEY$
  63. LOOP WHILE w$ = ""
  64. IF LEN(w$) = 1 THEN
  65. SELECT CASE ASC(w$)
  66. CASE 13
  67. SECILEN = NRD%
  68. EXIT DO
  69. CASE ELSE
  70. SOUND 200, 1
  71. END SELECT
  72.  
  73. ELSE
  74.  
  75. ww$ = RIGHT$(w$, 1)
  76. SELECT CASE ASC(ww$)
  77. CASE 80
  78. yaz ((X% - 1) + NRD%), Y%, a$(NRD%), 0
  79. NRD% = NRD% + 1: IF NRD% > SECIMSAYISI THEN NRD% = 1
  80. yaz ((X% - 1) + NRD%), Y%, a$(NRD%), 1
  81.  
  82.  
  83. CASE 72
  84. yaz ((X% - 1) + NRD%), Y%, a$(NRD%), 0
  85. NRD% = NRD% - 1: IF NRD% < 1 THEN NRD% = SECIMSAYISI
  86. yaz ((X% - 1) + NRD%), Y%, a$(NRD%), 1
  87. CASE ELSE
  88. SOUND 200, 1
  89. END SELECT
  90. END IF
  91. LOOP
  92. COLOR 7, 0
  93. END SUB
  94.  
  95. SUB yaz (X%, Y%, e$, e)
  96. IF e = 1 THEN
  97. COLOR 0, 7
  98. ELSE
  99. COLOR 7, 0
  100. END IF
  101. LOCATE X%, Y%: PRINT e$
  102. END SUB
  103.  
  104.